home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 001-010 / amok02 / m2code / m2codedemo2 / asssortdemo.mod < prev    next >
Encoding:
Text File  |  1993-11-04  |  521 b   |  25 lines
  1. MODULE AssSortDemo;
  2.  
  3. FROM SYSTEM IMPORT ADR,ADDRESS,BYTE,WORD;
  4. FROM AssSort IMPORT AssSort;
  5. FROM InOut IMPORT WriteLn,WriteString,WriteCard;
  6. FROM RandomNumbers IMPORT Random;
  7.  
  8. CONST
  9.   Size = 1000;
  10.  
  11. VAR
  12.   x: ARRAY[0..Size] OF CARDINAL;
  13.   i: CARDINAL;
  14.  
  15. BEGIN
  16.   WriteString("Calculating random numbers"); WriteLn;
  17.   FOR i:=0 TO Size DO x[i]:= Random(65535) END;
  18.   WriteString("Sorting"); WriteLn;
  19.   AssSort(ADR(x),Size);
  20.   WriteString("Ready."); WriteLn;
  21.   FOR i:=0 TO Size DO
  22.     WriteCard(x[i],7);
  23.   END;
  24. END AssSortDemo.
  25.